home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / U-Z / ViewIt 2.24 Shareware.sit / ViewIt™ 2.24 Shareware / Pascal Demo Projects / THINK Pascal 4.0 Demos / MinimumLP.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-14  |  270 b   |  16 lines  |  [TEXT/PJMM]
  1. {Minimum LP Demonstration Program}
  2. {©FaceWare 1991-93.  All Rights Reserved.}
  3.  
  4. program MinimumLP;
  5. {$I-}
  6.  
  7.     uses
  8.         FaceStorLP, FaceProcLP;
  9.  
  10. begin
  11.     fRec.uName := 'Minimum.Rsrc';
  12.     FaceIt(nil, DoInit, 0, 0, 0, 0);
  13.     repeat
  14.         FaceIt(nil, DoLoop, 0, 0, 0, 0);
  15.     until false;
  16. end.